home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh07a.d64 / menu demo (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  3.7 KB  |  161 lines
  1. 0 SYS57812"XMENU",8,1:POKE780,0:SYS65493:REM XMENU LADEN
  2. 5 SYS 50175:AM=0:ME=0:PT=1
  3. 10 GOSUB 1100:GOSUB 1000:REM INIT
  4. 11 :
  5. 15 MT$="MAIN":GOSUB 1200
  6. 20 MENU 9,5,17,6,141,1,0,M$(0),AM
  7. 21 :
  8. 22 IFAM<6THEN:KILLM
  9. 23 IFAM=0THENGOSUB1220:GOSUB1022:GOTO15
  10. 24 IFAM=1THENMD$=M$(AM):GOSUB1250:GOTO20
  11. 25 IFAM=6THENGOSUB1220:POKE214,23:SYS58732:END
  12. 26 ON AM-1 GOTO 40,80,100,140
  13. 30 :
  14. 36 :
  15. 40 GOSUB 1280
  16. 41 MT$="PRINT":GOSUB 1200
  17. 43 MENU 9,5,17,5,141,1,1,P$(0),AM
  18. 44 :
  19. 48 IFAM=0THENGOSUB1220:GOSUB1265:GOTO20
  20. 51 IFAM=1THEN60
  21. 54 MD$=P$(AM):GOSUB1265:GOSUB1250:KILLM:GOTO43
  22. 55 :
  23. 60 MT$="PTYPE":GOSUB 1200
  24. 65 MENU 9,5,17,5,141,1,1,PT$(0),AM
  25. 70 IFAM=0THENGOSUB1220:GOTO43
  26. 73 PT=AM:GOSUB 1265:GOSUB 1280:GOTO 65
  27. 74 :
  28. 80 MT$="EDIT":GOSUB 1200
  29. 83 MENU 9,5,17,5,141,1,1,E$(0),AM
  30. 86 :
  31. 89 IFAM=0THENGOSUB1220:GOTO20
  32. 92 MD$=E$(AM):GOSUB1250:GOTO83
  33. 93 :
  34. 100 MT$="DISK":GOSUB 1200
  35. 105 MENU 9,5,17,6,141,1,1,D$(0),AM
  36. 108 :
  37. 110 IFAM=0THENGOSUB1220:GOTO20
  38. 112 IFAM=2THEN120
  39. 114 MD$=D$(AM):GOSUB1250:GOTO105
  40. 115 :
  41. 120 MT$="DCMDS":GOSUB1200
  42. 123 MENU 9,5,17,4,141,1,1,DC$(0),AM
  43. 126 :
  44. 130 IFAM=0THENGOSUB1220:GOTO105
  45. 135 MD$=DC$(AM):GOSUB1250:GOTO123
  46. 136 :
  47. 140 MT$="TEXT":GOSUB1200
  48. 145 MENU 9,5,17,5,141,1,1,T$(0),AM
  49. 146 :
  50. 150 IFAM=0THENGOSUB1220:GOTO20
  51. 155 MD$=T$(AM):GOSUB1250:GOTO145
  52. 999 :
  53. 1000 REM BILDSCHIRM
  54. 1001 :
  55. 1002 PRINTCHR$(14)"[147][159][196]EMO[215]RITE [206]AME:DEMO.TEX  [211]T 1 [218]L 16 [211]P 5
  56. 1003 [153]"LEFT$IERARCHIE:                             WAIT"
  57. 1004 [153]"   STR$IES IST EINE (null)EXTVERARBEITUNGS-ATNT-
  58. 1005 PRINT" TRAPPE UM [201]HNEN DIE [193]NWENDUNG DES [205]ENU-";
  59. 1006 PRINT" [213]NTERPROGRAMMS IN DER [208]RAXIS ZU ZEIGEN.
  60. 1007 [153]"   RIGHT$N DAS LEFT$AUPTMENU GELANGEN (null)IE MIT
  61. 1008 PRINT" [195][212][210][204]-[205]. [201]N DAS NACHSTE [205]ENU KOMMEN [211]IE
  62. 1009 [153]" MIT (null)ETURN ODER DURCH STR$RUCKEN EINES UN-";
  63. 1010 [153]" TERLEGTEN PEEKUCHSTABENS. (null)M IN DAS VOR-
  64. 1011 PRINT" HERGEHENDE [205]ENU ZU KOMMEN MUSSEN [211]IE
  65. 1012 [153]" (null)HIFT-(null)ETURN DRUCKEN. STR$IE (null)ENU-LEFT$IERAR-
  66. 1013 PRINT" CHIE, DIE ANZEIGT IN WELCHER [205]ENU-[197]BENE";
  67. 1014 PRINT" [211]IE SICH BEFINDEN, SEHEN [211]IE IN DER
  68. 1015 [153]" DRITTEN PEEKILDSCHIRMZEILE.
  69. 1016 PRINT"   [206]ACHDEM [211]IE EINE [198]UNKTION ANGEWAHLT
  70. 1017 [153]" HABEN, ERSCHEINT DIE (null)ELDUNG "[199](34)"ASCUNKTION
  71. 1018 PRINT" NICHT IMPLEMENTIERT"CHR$(34)" UND DIE [193]UFFORDER-";
  72. 1019 PRINT" UNG EINE [212]ASTE ZU DRUCKEN. [215]ENN [211]IE
  73. 1020 [153]" JETZT DIREKT IN DEN (null)EXTMODUS WOLLEN,
  74. 1021 PRINT" MUSSEN [211]IE '_' DRUCKEN."
  75. 1022 :
  76. 1023 REM AUF CTRL-M WARTEN
  77. 1024 :
  78. 1025 POKE211,24:POKE214,23:SYS58732
  79. 1027 POKE204,0
  80. 1030 WAIT198,1:POKE198,0:IFPEEK(631)<>13THEN1030
  81. 1035 WAIT207,1,1:POKE204,1
  82. 1040 REM FERTIG
  83. 1045 RETURN
  84. 1046 :
  85. 1100 REM TEXTE
  86. 1101 :
  87. 1105 DIM M$(6),P$(5),E$(7),D$(6),T$(5),DC$(4),PT$(5)
  88. 1110 M$(0)="[205]AIN [205]ENU"
  89. 1111 M$(1)="[206]EW [196]OCUMENT"
  90. 1112 M$(2)="[208]RINT"
  91. 1113 M$(3)="[197]DIT [198]UNCTIONS"
  92. 1114 M$(4)="[196]ISK [200]ANDLING"
  93. 1115 M$(5)="[212]EXT [208]ARAMETERS"
  94. 1116 M$(6)="[209]UIT [196]EMO[215]RITE"
  95. 1117 :
  96. 1120 P$(0)="[208]RINT [205]ENU"
  97. 1121 P$(1)="[212]YPE OF [208]RINTER"
  98. 1122 P$(2)="[211]ET [202]USTIFICATION"
  99. 1123 P$(3)="[198]ROM/[212]O [208]AGE"
  100. 1124 P$(4)="[196]EFINE [208]APER"
  101. 1125 P$(5)="[208]RINT [212]EXT"
  102. 1126 :
  103. 1130 E$(0)="[197]DIT [205]ENU"
  104. 1131 E$(1)="[198]IND"
  105. 1132 E$(2)="[196]ELETE"
  106. 1133 E$(3)="[210]EPLACE"
  107. 1134 E$(4)="[195]OPY"
  108. 1135 E$(5)="[205]OVE"
  109. 1136 :
  110. 1140 D$(0)="[196]ISK [205]ENU"
  111. 1141 D$(1)="[196]IRECTORY"
  112. 1142 D$(2)="[195]OMMANDS OF [196]ISK"
  113. 1143 D$(3)="[201]MPORT [214]IZA-[212]EXT"
  114. 1144 D$(4)="[201]MPORT [211][197][209]-[212]EXT"
  115. 1145 D$(5)="[197]XPORT [211][197][209]-[212]EXT"
  116. 1146 D$(6)="[211]AVE [212]EXT"
  117. 1147 :
  118. 1150 T$(0)="[212]EXT [205]ENU"
  119. 1151 T$(1)="[212]EXT [215]IDTH"
  120. 1152 T$(2)="[210]ENAME [212]EXT"
  121. 1153 T$(3)="[195]HARACTER [211]ET"
  122. 1154 T$(4)="[211]CREEN [195]OLOR"
  123. 1155 T$(5)="[211]TORAGE [196]EVICE"
  124. 1156 :
  125. 1160 DC$(0)="[196]COMMAND [205]ENU"
  126. 1161 DC$(1)="[210]ENAME [198]ILE"
  127. 1162 DC$(2)="[196]ELETE [198]ILE"
  128. 1163 DC$(3)="[198]ORMAT [196]ISK"
  129. 1164 DC$(4)="[214]ALIDATE [196]ISK"
  130. 1165 :
  131. 1170 PT$(0)="[208]RINTER [205]ENU"
  132. 1171 PT$(1)="[201]TOH 8510"
  133. 1172 PT$(2)="[197]PSON [210][216]/[198][216]"
  134. 1173 PT$(3)="[214][195] 1526"
  135. 1174 PT$(4)="[194]ROTHER [200][210]-5[195]"
  136. 1175 PT$(5)="[211]TAR [196]ELTA 10"
  137. 1176 :
  138. 1177 RETURN
  139. 1178 :
  140. 1200 REM HIERARCHIE ERWEITERN
  141. 1201 :
  142. 1205 PRINT""TAB(12+7*ME)"->";MT$
  143. 1210 ME=ME+1:RETURN
  144. 1211 :
  145. 1220 REM HIERARCHIE ZURUCKSETZEN
  146. 1221 :
  147. 1225 PRINT""TAB(5+7*ME)"       "
  148. 1230 ME=ME-1:RETURN
  149. 1231 :
  150. 1250 REM MELDUNG AUSGEBEN
  151. 1251 :
  152. 1255 PRINT""CHR$(34);MD$;CHR$(34)" NICHT IMPL. - [212]ASTE!";
  153. 1260 POKE198,0:WAIT198,1:POKE 198,0:IFPEEK(631)=95THENRUN
  154. 1265 PRINT"                                        ";
  155. 1270 RETURN
  156. 1271 :
  157. 1275 REM AKTUELLEN DRUCKER AUSGEBEN
  158. 1276 :
  159. 1280 PRINT"[195]URRENT SELECTED PRINTER:";PT$(PT)
  160. 1285 RETURN
  161.